home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Converters / Convert_MacPaint / Source / PSstuff / PackedCode < prev    next >
Encoding:
Text File  |  1995-06-12  |  2.5 KB  |  115 lines
  1. %BEGIN MacPaint
  2.  
  3. %
  4. %    Define values for: the 'length' byte and a byte when a run is found 
  5. %    define a string to be used when reading a byte that has been repeated 
  6.  
  7. /lengthByte 1 string def
  8. /runByte 1 string def
  9.  
  10. %
  11. %    - unpackbytes -
  12. %
  13. %    This unpacks packed hex data into binary strings. Data format is
  14. %    identical to PS level 2 RLE and the same as Mac PackBits (plus
  15. %    terminating 80). Data is divided into chunks.  Each chunk starts with
  16. %    a 'length' byte. if byte is < 128 use that number of following bytes
  17. %    (plus one) literally.  if byte is > 128, next byte should be used
  18. %    257-(thatbyte) times 128 (80) is improperly dealt with here if it
  19. %    appears in the data (it is an error when it does) Ignoring 128 saves
  20. %    time, tho, and all files using this are well formed and don't use it.
  21. % 
  22. /unpackbytes 
  23. { 
  24.     % get the length byte 
  25.     /thelength 
  26.         currentfile lengthByte readhexstring pop 
  27.         0 get 
  28.     def 
  29.  
  30.     thelength 128 lt 
  31.     { 
  32.         % the length byte says copy thelength bytes literally
  33.         /dataString thelength 1 add  string def 
  34.         currentfile dataString readhexstring pop 
  35.     }
  36.     { 
  37.         % the length byte says copy next byte 257-thelength times 
  38.         /runlength 257 thelength sub def 
  39.         /runString runlength  string def
  40.         currentfile runByte readhexstring pop pop 
  41.  
  42.         0 1 runlength 1 sub 
  43.         { runString exch runByte putinterval } 
  44.         for 
  45.         runString 
  46.     } 
  47.     ifelse 
  48. } def 
  49.  
  50.  
  51. %
  52. %    - level1showimage -
  53. %
  54. %    This reads the packed data in, unpacks it, and displays the image
  55. %    properly. It also reads and discards the terminating byte (80).
  56. %    and > character which is eof for the asciihexdecode filter.
  57. % 
  58. /level1showimage 
  59. { 
  60.     576 720 scale 
  61.     576 720 1 
  62.     [576 0 0 -720 0 720] 
  63.     {unpackbytes} 
  64.     image
  65.     % Discard the final 80 byte.
  66.     currentfile lengthByte readhexstring pop pop
  67.     currentfile read pop pop
  68. } def
  69.  
  70.  
  71.  
  72.  
  73. %
  74. %    - level2showimage -
  75. %
  76. %    This reads the image data in, and displays the image properly,
  77. %    letting a runlength filter decode the packed data.  Since this is
  78. %    PS level 2, we don't need the data source to be a procedure.
  79. % 
  80. /level2showimage 
  81. { 
  82.     576 720 scale 
  83.     576 720 1 
  84.     [576 0 0 -720 0 720] 
  85.     currentfile /ASCIIHexDecode filter /RunLengthDecode filter
  86.     image
  87. } def
  88.  
  89.  
  90. %
  91. %    PSlevel
  92. %
  93. %    This stores a number describing the PS level of the current
  94. %    environment. If possible, it uses the level2 langlevel,
  95. %    otherwise it assumes 1
  96. %
  97. /PSlevel
  98.     systemdict /languagelevel known
  99.         {languagelevel}
  100.         {1}
  101.     ifelse
  102. def
  103.  
  104. /showMPimage
  105. {
  106.     PSlevel 2 lt
  107.         { level1showimage }
  108.         { level2showimage }
  109.     ifelse
  110. }
  111. def
  112.  
  113. %END MacPaint
  114.  
  115.